### --- Test setup ---
 
if(FALSE) {
  ## Not really needed, but can be handy when writing tests
  library("RUnit")
  library("unsupervisedMicroarray")
  
}


 
### --- Test functions ---
#check if virtual classes are virtual 
test.brokenStickValues <- function()
{
	for(i in 1:20){
		b1 <- vegan::bstick(i)
		names(b1) <- NULL
		b2 <- brokenStick(i)
		checkEquals(b1,b2)
	}
} 
